home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / GS.PTD / SCRIPTS / GX.SCP < prev    next >
Encoding:
Text File  |  1988-05-01  |  8.0 KB  |  410 lines  |  [04] ASCII Text (0x0001)
  1. %if¶backÏinkÌenu
  2. %code∞≥
  3. %escreenalette≥20∞±5±5±5‚order±3
  4. %window∞∑0∂40≤00
  5. œneÌoment,lease.†Your¡pple¶NÈsreparingÙheÛection„alled
  6. ¢Graphics."†(Don'tÊorget--whenever˘ou˜antÙoÁo‚ackÙoÙhe
  7. ÌainÌenu,ÍustressÙhe≈scÎey.)
  8. %code≤∞˜ait∞
  9. %loadinst¥Ûtring‚ass.l¢"˜ait∞
  10. %loadinst≤‰rumËidrum.w¢"˜ait∞
  11. %loadinst≥‰rumÏodrum.w¢"˜ait∞
  12. %loadinst±ÁuitarÁuitar.l¢"˜ait∞
  13. %preloadÛfx/menu2open.song
  14. %preloadÛfx/menu2exit.song
  15. %preloadÁfx/m2.65†wait±
  16. %preloadÁfx/m1.06†wait±
  17. %preloadÁfx/m1.06a˜ait±
  18. %preloadÁfx/m2.86†wait±
  19. %preloadÁfx/m2.87†wait±
  20. %preloadÁfx/m2.88†wait±
  21. %preloadÁfx/m2.89†wait±
  22. %preloadÁfx/m2.90†wait±
  23. %preloadÁfx/cues˜ait∞
  24. %code∞µ„ode∞≤
  25. %sfxÌenu2open
  26.  
  27. %m 1
  28. %escreenalette≥20∞±5±5±5
  29. %window∞∞∂40≤00
  30. %cues¥54±82
  31. %gfx∞Ì1.06π4±9
  32. %gfxpart±Ì1.06a≤84≥6≤42∞¥80∑7
  33. %windowµ6±35≥85≤00‚oldÔn
  34. GRAPHICS
  35. %boldÔff
  36.  
  37. AÁraphicsrogramÛtarts˘ouÔff˜ith·‚lankieceÔf¢drawingaper"
  38. and·ÛetÔfÙoolsÙo˜ork˜ith.†Ÿour¢pencil"ÈsÙheÌouse.
  39. %windowµ6±53≥85≤00
  40. %get act
  41.  
  42. %m 2
  43. %palette≥20∞±5±5±5‚color∞Âscreen
  44. %gfx∞Ì2.65∞∞alette∂40∞±0±0±0˜indow∞±50∂40≤00‚color∞Â
  45. %fcolor≥˜indow¥8±61≥02≤00
  46. SomeÔfÙheseÙools·reÊor‰rawingÏines·ndÛhapes.†
  47. %hilite∏†15∏0±19¥
  48. %get act
  49.  
  50. %m 3
  51. %if¶backËilite·rea±∞
  52. %e
  53. %window¥8±61¥42≤00
  54. ThisÙoolÈsÊor‰rawingÏines.
  55.  
  56. &P†Try‰rawingÛomeÏinesÓow.†ClickÙheÏineÙool.†
  57. %s·rea±±0∂8¥4∏0
  58. %s¥¢theÏineÙool"
  59. %s 0 1 get any
  60. %if (&act <> -1) and (&act <> 3)  rem click j get
  61. %hilite·rea±∞
  62. %if¶actº>≠1Ûkip±
  63. %sfx≤
  64. 2±2µ0∞±10
  65. 2±2µ7∞±10
  66. %w
  67.  
  68. %m 4
  69. %s∞±6Â
  70. %window¥8±61¥18≤00
  71. That'sÚight.†NowlaceÙheointer˜ithinÙhe‰rawing·rea·nd,
  72. holdingÙhe‚utton‰own,Ûtretch·ÏineÙo˜herever˘ouÏike·nd
  73. releaseÙhe‚utton.
  74. %point
  75. %code≤∂8
  76. %if¶ansÔr®&actΩ≥)Ûkip±
  77. %e
  78. NotÒuite.†MakeÛureÙheointerÈsÈnsideÙhe‰rawing·rea,
  79. thenËold‰ownÙheÌouse‚utton˜hile˘ouÛtretch·Ïine‚y‰raggingÙhe
  80. mouse.†ThenÚeleaseÙhe‚utton.
  81. %j point
  82. %w
  83. %if˛&ansÛkip±
  84. %sfx≥
  85. 2†9µ7∞±10
  86. 2†9µ7∞±10
  87. 2±8µ0∞±10
  88. %w
  89.  
  90. %m 5
  91. %if¶backÛ·rea±±0∂8¥4∏0Ëilite·rea±∞
  92. %e
  93. %window¥8±61≥20≤00˜rapÔff
  94. Good.†Draw·ÊewÌoreÏines.
  95. ClickÙheΔorward·rrowÔrress
  96. Return˜hen˘ou'reÚeadyÙoÁoÔn.
  97. %wrapÔn
  98. %point
  99. %code≤∂9
  100. %if¶actΩ≥Í´±
  101. %if &ans j point
  102. %e
  103. %window¥8±57¥42≤00
  104. DrawÏines‚ylacingÙheointer˜ithinÙhe‰rawing·rea·nd,
  105. holdingÙheÌouse‚utton‰own,Ûtretching·ÏineÙo˜herever˘ouÏike.†Then
  106. releaseÙhe‚utton.†ClickÙheΔorward·rrow˜hen˘ou'reÚeadyÙoÁoÔn.
  107. %j point
  108.  
  109. %m 6
  110. %if¶backÛ·rea±±0∂8¥4∏0Ëilite·rea≤∞
  111. %e
  112. %window¥8±57≥36≤00
  113. You„an‰rawÛhapes,Ùoo.†ThisÙoolÈsÊor‰rawingÚectangles.†
  114.  
  115. &P‘ryÈtÔut.†ClickÙheÚectangleÙool.
  116. %s·rea≤±0∏1¥4π3
  117. %s¥¢theÚectangleÙool"
  118. %if˛&backËilite·rea±∞
  119. %s 0 2 get any
  120. %if (&act <> -2) and (&act <> 3) rem click j get
  121. %hilite·rea≤∞
  122. %if¶actº>≠2Ûkip±
  123. %sfx≤
  124. 2±2µ0∞±10
  125. 2±2µ0∞±10
  126. %w
  127.  
  128. %m 7
  129. %e
  130. %window≥8±52¥30≤00
  131. That'sÚight.†NowÌoveÙheointerÔutÔntoÙhe‚lank·reaÔfÙheÛcreen.
  132. PositionÈtÛomewhereÓearÙheıpper-left„orner·nd,ËoldingÙheÌouse
  133. button‰own,‰rag‰own·ndÙoÙheÚight.†ReleaseÙheÌouse‚utton˜hen
  134. yourÚectangleÈsÙheÛize˘ou˜ant.
  135. %point
  136. %code≤∑2
  137. %if¶ansÔr®&actΩ≥)Ûkip±
  138. %e
  139. NotÒuite.†MakeÛureÙheointerÈsÈnsideÙhe‰rawing·rea,
  140. thenËold‰ownÙheÌouse‚utton˜hile˘ouÛtretch·Úectangle‚y‰raggingÙhe
  141. mouse.†ThenÚeleaseÙhe‚utton.
  142. %j point
  143. %w
  144. %if˛&ansÛkip±
  145. %sfx≥
  146. 2±2µ7∞±10
  147. 2±2µ0∞±10
  148. 2±2µ7∞±10
  149. %w
  150.  
  151. %m 8
  152. %if¶backÛ·rea≤±0∏1¥4π3Ëilite·rea≤∞
  153. %e˜indow¥8±61≥46≤00
  154. Good.†Try‰rawing·ÊewÌoreÚectangles.†
  155. ClickÙheΔorward·rrowÔrress“eturn˜hen˘ou'reÚeadyÙoÁoÔn.
  156. %point
  157. %code≤∑3
  158. %if¶actΩ≥Í´†1
  159. %if &ans j point
  160. %e
  161. %window¥8±52¥18≤00
  162. DrawÚectangles‚ylacingÙheointer˜ithinÙhe‰rawing·rea·nd,
  163. holdingÙheÌouse‚utton‰own,Ûtretching·ÚectangleÙo˜herever˘ouÏike.
  164. ThenÚeleaseÙhe‚utton.†ClickÙheΔorward·rrowÔrress˜hen˘ou'reÚeady
  165. toÁoÔn.
  166. %j point
  167.  
  168.  
  169. %m 9
  170. %e
  171. %window¥8±57≥62≤00
  172. %s·rea≥¥6∏1∏0π3
  173. %if¶backÛ·rea≤±0∏1¥4π3Ëilite·rea≥∞
  174. VeryÁood.Ÿou„an·lso‰rawÛhapesÊilled˜ith„olors·nd
  175. patterns--anyÔfÙheÔnes˘ouÛee·tÙhe‚ottomÔfÙheÛcreen.†
  176. To‰oÙhis,ÛelectÙheÊilledÚectangleÙool.†
  177. %s¥¢theÊilledÚectangleÙool"
  178. %if˛&backËilite·rea≤∞
  179. %s 0 3 get any
  180. %if (&act <> -3) and (&act <> 3)  rem click j get
  181. %hilite·rea≥∞
  182. %if¶actº>≠3Ûkip±
  183. %sfx≤
  184. 2†9µ7∞±10
  185. 2†9µ7∞±10
  186. %w
  187.  
  188. %m 10
  189. %e
  190. %window¥8±57¥18≤00
  191. Now„lickÙo„hooseÔneÔfÙhe„olors.
  192. %s·rea±6µ98±28∂30±40†Û·rea≤†568±28∂00±40
  193. %s·rea†3µ38±28µ70±40†Û·rea¥†508±28µ40±40
  194. %s·rea†5¥78±28µ10±40†Û·rea∂†448±28¥80±40
  195. %s·rea†7¥18±28¥50±40†Û·rea∏†388±28¥20±40
  196. %s·rea†9≥58±28≥90±40†Û·rea±0≥28±28≥60±40
  197. %s·rea±1≤98±28≥30±40†Û·rea±2≤68±28≥00±40
  198. %s·rea±3≤38±28≤70±40†Û·rea±4≤08±28≤40±40
  199. %s·rea±5±78±28≤10±40†Û·rea†1±48±28±80±40
  200. %s¥¢oneÔfÙhe„olorÛquares"
  201. %get any s 0 &act
  202. %if &act = 0 e rem click j get
  203. %if¶actΩ≥Ûkip±
  204. %sfx≤
  205. 2†9µ0∞±10
  206. 2†9µ0∞±10
  207. %w
  208. %code≤∑5
  209.  
  210. %m 11
  211. %if¶backÍ‚ack
  212. %e
  213. %window¥8±57¥00≤00
  214. PositionÙheointerÈnÙhe‰rawing·rea.†
  215. ThenËold‰ownÙheÌouse‚utton·nd‰ragÙheÌouseÙo‰raw˘ourÚectangle.†
  216. WhenÈt'sÙheÛize˘ou˜ant,ÚeleaseÙheÌouse‚utton.
  217. %code≤∑6
  218. %if¶ansÔr®&actΩ≥)Ûkip±
  219. %e
  220. NotÒuite.†MakeÛureÙheointerÈsÈnsideÙhe‰rawing·rea,
  221. thenËold‰ownÙheÌouse‚utton˜hile˘ouÛtretch·Úectangle‚y‰raggingÙhe
  222. mouse.†ThenÚeleaseÙhe‚utton.
  223. %j point
  224. %w
  225. %if˛&ansÛkip±
  226. %sfx¥
  227. 2±2µ7∞±10
  228. 2±2µ0∞±10
  229. 2±2µ7∞±10
  230. 2±2µ0∞±10
  231. %w
  232.  
  233. %m 12
  234. %if¶backËilite¥6∏1∏0π3∞Í‚ack
  235. %e
  236. %s·rea†1±48±28±80±40†Û·rea≤†568±28∂00±40
  237. %s·rea†3µ38±28µ70±40†Û·rea¥†508±28µ40±40
  238. %window¥8±61¥04≤00
  239. TryÔutÛomeÔfÙheÔther„olors·s˘ou‰raw·ÊewÌoreÊilled
  240. rectangles.†ClickÙheΔorward·rrowÔrress“eturn˜hen˘ou'reÚeady
  241. toÁoÔn.
  242. %point
  243. %code≤∑7
  244. %if¶actΩ≥Í´±
  245. %if¶actº∞Û∞¶act„ode≤∑5
  246. %if (&ans or &act) j point
  247. %e
  248. %window¥8±52¥42≤00
  249. DrawÚectanglesÈn„olor‚ylacingÙheointer˜ithinÙhe‰rawing·rea·nd,
  250. holdingÙheÌouse‚utton‰own,Ûtretching·ÏineÙo˜herever˘ouÏike.†Then
  251. releaseÙhe‚utton.†ClickÙheΔorward·rrowÔrress˜hen˘ou'reÚeady
  252. toÁoÔn.
  253. %j point
  254.  
  255. %m 13
  256. %s·rea±¥6≤9∏0¥1
  257. %s·rea≥¥6∏1∏0π3
  258. %if¶backËilite·rea±∞
  259. %e
  260. %window¥8±57¥58≤00
  261. You„an·ddÏettering,Ùoo,Èn‰ifferentÛtyles·ndÛizes.†
  262. Put·ÙitleÔnÙhisÈnterestingicture˘ou've„reated.
  263.  
  264. &P†FirstÛelectÙheÏetteringÙool.†
  265. %s¥¢theÏetteringÙool"
  266. %if˛&backËilite·rea≥∞
  267. %s 0 1 get any
  268. %if (&act <> -1) and (&act <> 3)  rem click j get
  269. %hilite·rea±∞
  270. %if¶actº>≠1Ûkip±
  271. %sfx¥
  272. 2±2µ7±±10
  273. 2†1†0∞†∞
  274. 2±2µ0∞±10
  275. 2±2µ7∞±10
  276. %w
  277.  
  278. %m 14
  279.  
  280. %if¶backÛ·rea±¥6≤9∏0¥1Ëilite·rea±∞
  281. %e
  282. %window¥8±52≥96≤00„enterÔff˜rapÔff
  283. &PŒowlaceÙheointerÈnsideÙhe‰rawing·rea,
  284. †where˘ou˜ant˘ourÙitleÙoÛtart.
  285.  
  286. &P√lickÙoÛetÙheÈnsertionoint.†ThenÙype
  287. †yourÙitle·ndress“eturn.
  288. %centerÔn˜rapÔn
  289. %point
  290. %code≤∑8„ode∞±3
  291. %if¶actΩ≥Í´±
  292. %if˛&key·nd®&1æ=π2)·nd®&1ºµ90)·nd®&2æ≥8)·nd®&2º±24)Ûkip±
  293. %window¥8±52¥24≤00
  294. %e
  295. NotÒuite.†BeÛureÙheointerÈsÈnsideÙhe‰rawing·rea,ÏeavingÂnough
  296. roomÊor˘ourÙitle.†
  297.  
  298. ClickÙoÛetÙheÈnsertionoint.†ThenÙype˘ourÙitle·ndress“eturn.
  299. %j point
  300. %w
  301. %window±0±52∂28≤00
  302. %moveto¶1¶2„ode≤∑9
  303. %sfx¥
  304. 2±2µ7∞±10
  305. 2±2µ7∞±10
  306. 2±2µ0∞±10
  307. 2±2µ7∞±10
  308. %window±0±52∂40≤00
  309.  
  310. %m 15
  311. %if¶backËilite·rea≤∞
  312. %e
  313. %window¥8±52≥64≤00
  314. Good.†You„an‰rawÊreehand˜ith·Áraphicsrogram,Ùoo.†TryÈt
  315. out.
  316.  
  317. %wrapÔff„enterÔff
  318. &P√hooseÙheencilÊromÙheÙoolalette
  319. †‚y„lickingÈt.
  320. %wrapÔn„enterÔnÛ·rea≤¥6µ5∏0∂7Û¥¢theencil"
  321. %if˛&backËilite·rea±∞
  322. %s 0 2 get any
  323. %if (&act <> -2) and (&act <> 3) rem click j get
  324. %hilite·rea≤∞
  325. %if¶actº>≠2Ûkip±
  326. %sfx≥
  327. 2†4µ7∞±10
  328. 2±2µ7∞±10
  329. 2±2µ0∞±10
  330. %w
  331.  
  332. %m 16
  333. %e
  334. %window¥8±57≥30≤00
  335. MoveÙheencilÔntoÙhe‰rawing·rea.†Hold‰ownÙheÌouse‚utton·nd‰raw.
  336. Press“eturnÔr„lickÙheÊorward·rrowÙoÁoÔn.
  337. %code≤∏1
  338. %if˛&ansÛkip±
  339. %sfx¥
  340. 2†5µ7∞±10
  341. 2†5µ0∞±10
  342. 2±2µ7∞±10
  343. 2±2µ0∞±10
  344. %w
  345. %point
  346. %code≤∏1
  347. %if &act <= 0 j point
  348.  
  349. %m 17
  350. %if¶backÛ·rea≤¥6µ5∏0∂7Ëilite·rea≤∞
  351. %e
  352. %window¥8±61¥06≤00
  353. That'sÚight--andÙhere's·ÏotÌore.†You„anÌoveartsÔf˘our‰rawing
  354. around,Ûhrink·ndÂxpandÙhings,·ndÂrase˜henever˘ou˜ant.
  355. %get act
  356.  
  357. %m 18
  358. %if˛&backÛkip±
  359. %palette≥20∞±5±5±5‚color∞Âscreen‚order±3
  360. %gfx∞Ì2.65∞∞alette∂40∞±0±0±0
  361. %window∞±50∂40≤00‚color∞Â
  362. %fcolor≥˜indow¥8±53∂10≤00
  363. %w
  364. %e
  365. %window¥8±61≥00≤00
  366. What„an˘ou‰o˜ith·Áraphicsrogram?†Once˘ouÛtartısingÈt,
  367. ideas˜ill„omeÙo˘ou.
  368. %get act
  369.  
  370. %m 19
  371. %palette≥20∞±0±0±0Âscreen
  372. %windowµ6±61¥20≤00
  373. YouÌight‰raw·Ìap.†
  374. %eraserect∞∞∂40±60Áfx∞Ì2.86±44≥1‚order≤
  375. %get act
  376.  
  377.  
  378. %m 20
  379. %eraserect∞∞∂40±60
  380. %gfxµÌ2.87±44≥1‚order±1Â
  381. Or·Êloorplan.
  382. %get act
  383.  
  384. %m 21
  385. %eraserect∞∞∂40±60
  386. %gfxµÌ2.88±44≥1‚order∂Â
  387. Or·Ûcientific‰iagram.
  388. %get act
  389.  
  390. %m 22
  391. %eraserect∞∞∂40±60
  392. %gfxµÌ2.89±44≥1‚order±2Â
  393. YouÌight‰esign·ÏetterheadÊor˘our‚usiness.
  394. %get act
  395.  
  396. %m 23
  397. %eraserect∞∞∂40±60
  398. %gfxµÌ2.90±44≥1‚orderπ˜rapÔff
  399. OrÌake·nÈnvitation.†You'll‰iscover·ll
  400. kindsÔfÊascinatingossibilities.
  401. %wrap on get act
  402. %loadinst¥Ûtring‚ass.l¢"
  403. %loadinst≤‰rumËidrum.w¢"
  404. %loadinst≥‰rumÏodrum.w¢"
  405. %loadinst±ÁuitarÁuitar.l¢"
  406. %sfxÌenu2exit„ode∞≤2˜ait¥2
  407. %code∞±0
  408. %linkÌenu
  409.  
  410.